home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Apple II Sample Code / APW.SC / SC18AccessPriv / AP.rez < prev    next >
Encoding:
Text File  |  1990-06-23  |  23.9 KB  |  636 lines  |  [TEXT/pdos]
  1. /*---------------------------------------------------------------*/
  2.  
  3. #include "types.rez" 
  4.  
  5. /*------------------- Values used through out -------------------*/
  6.  
  7. #define MainWindow              $1000
  8. #define SFWindow                $1001
  9.  
  10. #define CheckFolderAllSee       $0101
  11. #define CheckFileAllSee         $0102
  12. #define CheckAllChanges         $0103
  13. #define CheckFolderGroupSee     $0104
  14. #define CheckFileGroupSee       $0105
  15. #define CheckGroupChanges       $0106
  16. #define CheckFolderOwnerSee     $0107
  17. #define CheckFileOwnerSee       $0108
  18. #define CheckOwnerChanges       $0109
  19. #define UndoBut                 $010A
  20. #define SaveBut                 $010B
  21. #define ViewAnotherBut          $010C
  22. #define CheckLocked             $010D
  23. #define LEOwnerName             $010E
  24. #define LEGroupName             $010F
  25. #define StatTextTextID1         $0110
  26. #define StatTextTextID2         $0111
  27. #define StatTextTextID3         $0112
  28. #define StatTextTextID4         $0113
  29. #define StatTextTextID5         $0114
  30. #define StatTextTextID6         $0115
  31. #define Owner                   $0116
  32. #define Group                   $0117
  33. #define Everyone                $0118
  34. #define SeeFolders              $0119
  35. #define SeeFiles                $011A
  36. #define MakeChanges             $011B
  37.  
  38. /*----------------------- About Box ------------------------------*/
  39. resource rAlertString (1) {
  40.     "\$00\$19\$00\$A0\$00\$AA\$00\$E0\$01"
  41.     "\$00/"
  42.     TBCenterJust
  43.     TBStyleOutline
  44.     "Access Privileges"
  45.     TBEndOfLine
  46.     TBStylePlain
  47.     TBEndOfLine
  48.     "by"
  49.     TBEndOfLine
  50.     "Dan Strnad"
  51.     TBEndOfLine
  52.     TBEndOfLine
  53.     "Copyright 1989 Apple Computer, Inc."
  54.     TBEndOfLine
  55.     "All Rights Reserved"
  56.     TBEndOfLine
  57.     "Version 3.0/^#6\$00"
  58. };
  59.  
  60. /*----------------------Startup Record ---------------------------*/
  61. resource rToolStartup (1)   {
  62.     mode640,                            /* master SCB */
  63.     {   
  64.         3,$0300,                        /* misc tools */
  65.         4,$0301,                        /* quickdraw */
  66.         5,$0302,                        /* desk manager */
  67.         6,$0300,                        /* eventMgr */
  68. /*      7,$0200,                        /* scheduler */
  69. /*      8,$0301,                        /* sound tools */
  70. /*      9,$0201,                        /* ADB tools */
  71. /*      10,$0202,                       /* SANE */
  72.         11,$0200,                       /* int math */
  73.         14,$0301,                       /* Window Manager */
  74.         15,$0301,                       /* Menu Manager */
  75.         16,$0301,                       /* Control Manager */
  76.         18,$0301,                       /* QD Aux */
  77.         19,$0300,                       /* print manager */
  78.         20,$0301,                       /* LineEdit tool set */
  79.         21,$0302,                       /* Dialog Manager */
  80.         22,$0300,                       /* Scrap manager */
  81.         23,$0301,                       /* standard file */
  82. /*      25,$0104,                       /* NoteSynth */
  83. /*      26,$0104,                       /* Note Seq */
  84.         27,$0301,                       /* Font manager */
  85.         28,$0301,                       /* list manager */
  86. /*      29,$0101,                       /* ACE */
  87. /*      32,$0103,                       /* Midi Tools */
  88. /*      34,$0101                        /* text edit */
  89.     }
  90. };
  91.  
  92. /*---------------------------------------------------------------------------*/
  93. /*
  94. /* Main Window
  95. /*
  96. /* This is the template for the privileges window 
  97. /*
  98. /*---------------------------------------------------------------------------*/
  99. resource rWindParam1 (MainWindow) {
  100.     fTitle+fVis,                                    /* Frame Bits           */
  101.     0x201,                                          /* title ID             */
  102.     0,                                              /* ref Con              */
  103.     {0,0,0,0},                                      /* Zoom Rect            */
  104.     0,                                              /* color table id       */
  105.     {0,0},                                          /* origin               */
  106.     {0,0},                                          /* data size            */
  107.     {0,0},                                          /* max height-width     */
  108.     {0,0},                                          /* scroll amount, hor,ver */
  109.     {0,0},                                          /* page amount */
  110.     0,                                              /* wInfo Ref Con */
  111.     0,                                              /* wInfo height */
  112.     {30,50,192,550},                                /* window Position */
  113.     infront,                                        /* wPlane */
  114.     MainWindow,                                     /* Control Ref */
  115.     refIsResource*0x0100+resourceToResource         /* descriptor */
  116. };
  117.  
  118. /*---------------------------------------------------------------------------*/
  119. /* This is the title of the main window
  120. /*---------------------------------------------------------------------------*/
  121. resource rPString (0x201) {
  122.     "Access Privileges"
  123.     };
  124.  
  125. /*---------------------------------------------------------------------------*/
  126. /* The following define the controls for the main window.
  127. /* First I start with some constants.
  128. /*---------------------------------------------------------------------------*/
  129.  
  130. #Define RowSep      9
  131. #Define RowSep2     18
  132. #Define RowSep3     24
  133. #Define RowSep4     15
  134. #Define RowSep5     8
  135.  
  136. #Define TextRow1    4
  137. #Define TextRow2    TextRow1 + RowSep
  138. #Define TextRow3    TextRow2 + RowSep
  139. #Define TextRow4    TextRow3 + RowSep 
  140. #Define TextRow5    TextRow4 + RowSep2
  141. #Define TextRow6    TextRow5 + RowSep2
  142. #Define TextRow7    TextRow6 + RowSep3
  143. #Define TextRow8    TextRow7 + RowSep2
  144. #Define TextRow9    TextRow8 + RowSep2
  145. #Define TextRow10   TextRow9 + RowSep4
  146.  
  147. #Define CtrlCol1    10
  148. #Define CtrlCol2    200
  149. #Define CtrlCol3    300
  150. #Define CtrlCol4    400
  151. #Define CtrlCol5    180
  152. #Define ButWidth        140
  153. #Define ButHeight       12
  154. #Define ButSep          20
  155. #Define ButVSep         5
  156.  
  157. #Define TopOfButRow      TextRow9 + RowSep2
  158. #Define BottomOfButRow   TopOfButRow+ButHeight
  159.  
  160. #Define ButLeftEdge1         ButSep
  161. #Define ButRightEdge1        ButLeftEdge1+ButWidth
  162. #Define ButLeftEdge2         ButRightEdge1+ButSep
  163. #Define ButRightEdge2        ButLeftEdge2+ButWidth
  164. #Define ButLeftEdge3         ButRightEdge2+ButSep
  165. #Define ButRightEdge3        ButLeftEdge3+ButWidth
  166.  
  167. #Define LEHeight            14
  168. #Define LEWidth             270
  169.  
  170.  
  171. /* List of all controls in Main Window */
  172.  
  173. resource rControlList (MainWindow) {
  174.     {
  175.         CheckLocked,
  176.         LEOwnerName,
  177.         LEGroupName,
  178.         CheckFolderAllSee,
  179.         CheckFolderGroupSee,
  180.         CheckFolderOwnerSee,
  181.         CheckFileAllSee,
  182.         CheckFileGroupSee,
  183.         CheckFileOwnerSee,
  184.         CheckAllChanges,
  185.         CheckGroupChanges,
  186.         CheckOwnerChanges,
  187.         UndoBut,
  188.         SaveBut,
  189.         ViewAnotherBut,
  190.         StatTextTextID1,
  191.         StatTextTextID2,
  192.         StatTextTextID3,
  193.         StatTextTextID4,
  194.         StatTextTextID5,
  195.         StatTextTextID6
  196.     };
  197. };
  198.  
  199.  
  200. resource rControlTemplate (CheckLocked)  {
  201.     CheckLocked,                                     /* control ID */
  202.     {TextRow5,CtrlCol1,0,0},                         /* control rect */
  203.     CheckControl{{                                   /* control type */
  204.         0,                                           /* flag */
  205.         fctlProcNotPtr+refIsResource,                /* more flags */
  206.         0,                                           /* ref con */
  207.         CheckLocked,                                 /* title ref */
  208.         1,                                           /* initial value */
  209.         0,                                           /* color table not used */
  210.         {"","",0,0}                                  /* key equiv */
  211.     }};
  212. }; 
  213.  
  214. resource rpString (CheckLocked) {
  215.     "Locked"
  216. };
  217.  
  218. resource rControlTemplate (LEOwnerName)  {
  219.     LEOwnerName,                                            /* control ID */
  220.     {TextRow5,CtrlCol2,TextRow5+LEHeight,CtrlCol2+LEWidth}, /* control rect */
  221.     EditLineControl{{                                       /* control type */
  222.         0,                                                  /* Flag */
  223.         fctlProcNotPtr+refIsResource,                       /* More Flags */
  224.         0,                                                  /* ref con */
  225.         32,                                                 /* Max Length */
  226.         LEOwnerName                                         /* Init Value Ref*/
  227.     }};
  228. }; 
  229.  
  230. resource rpString (LEOwnerName) {
  231.     ""
  232. };
  233.  
  234. resource rControlTemplate (LEGroupName)  {
  235.     LEGroupName,                                            /* control ID */
  236.     {TextRow6,CtrlCol2,TextRow6+LEHeight,CtrlCol2+LEWidth}, /* control rect */
  237.     EditLineControl{{                                       /* control type */
  238.         0,                                                  /* Flag */
  239.         fctlProcNotPtr+refIsResource,                       /* More Flags */
  240.         0,                                                  /* ref con */
  241.         32,                                                 /* Max Length */
  242.         LEGroupName                                         /* Init Value Ref*/
  243.     }};
  244. }; 
  245.  
  246. resource rpString (LEGroupName) {
  247.     ""
  248. };
  249.  
  250. resource rpString (Owner) {
  251.     "Owner"
  252. };
  253.  
  254. resource rpString (Group) {
  255.     "Group"
  256. };
  257.  
  258. resource rpString (Everyone) {
  259.     "Everyone"
  260. };
  261.  
  262. resource rControlTemplate (CheckFolderOwnerSee)  {
  263.     CheckFolderOwnerSee,                             /* control ID */
  264.     {TextRow7,CtrlCol2,0,0},                         /* control rect */
  265.     CheckControl{{                                   /* control type */
  266.         0,                                           /* flag */
  267.         fctlProcNotPtr+refIsResource,                /* more flags */
  268.         0,                                           /* ref con */
  269.         Owner,                                       /* title ref */
  270.         1,                                           /* initial value */
  271.         0,                                           /* color table not used */
  272.         {"","",0,0}                                  /* key equiv */
  273.     }};
  274. }; 
  275.  
  276. resource rControlTemplate (CheckFolderGroupSee)  {
  277.     CheckFolderGroupSee,                             /* control ID */
  278.     {TextRow7,CtrlCol3,0,0},                         /* control rect */
  279.     CheckControl{{                                   /* control type */
  280.         0,                                           /* flag */
  281.         fctlProcNotPtr+refIsResource,                /* more flags */
  282.         0,                                           /* ref con */
  283.         Group,                                       /* title ref */
  284.         1,                                           /* initial value */
  285.         0,                                           /* color table not used */
  286.         {"","",0,0}                                  /* key equiv */
  287.     }};
  288. }; 
  289.  
  290. resource rControlTemplate (CheckFolderAllSee)  {
  291.     CheckFolderAllSee,                               /* control ID */
  292.     {TextRow7,CtrlCol4,0,0},                         /* control rect */
  293.     CheckControl{{                                   /* control type */
  294.         0,                                           /* flag */
  295.         fctlProcNotPtr+refIsResource,                /* more flags */
  296.         0,                                           /* ref con */
  297.         Everyone,                                    /* title ref */
  298.         1,                                           /* initial value */
  299.         0,                                           /* color table not used */
  300.         {"","",0,0}                                  /* key equiv */
  301.     }};
  302. }; 
  303.  
  304. resource rControlTemplate (CheckFileOwnerSee)  {
  305.     CheckFileOwnerSee,                               /* control ID */
  306.     {TextRow8,CtrlCol2,0,0},                         /* control rect */
  307.     CheckControl{{                                   /* control type */
  308.         0,                                           /* flag */
  309.         fctlProcNotPtr+refIsResource,                /* more flags */
  310.         0,                                           /* ref con */
  311.         Owner,                                       /* title ref */
  312.         1,                                           /* initial value */
  313.         0,                                           /* color table not used */
  314.         {"","",0,0}                                  /* key equiv */
  315.     }};
  316. }; 
  317.  
  318. resource rControlTemplate (CheckFileGroupSee)  {
  319.     CheckFileGroupSee,                               /* control ID */
  320.     {TextRow8,CtrlCol3,0,0},                         /* control rect */
  321.     CheckControl{{                                   /* control type */
  322.         0,                                           /* flag */
  323.         fctlProcNotPtr+refIsResource,                /* more flags */
  324.         0,                                           /* ref con */
  325.         Group,                                       /* title ref */
  326.         1,                                           /* initial value */
  327.         0,                                           /* color table not used */
  328.         {"","",0,0}                                  /* key equiv */
  329.     }};
  330. }; 
  331.  
  332. resource rControlTemplate (CheckFileAllSee)  {
  333.     CheckFileAllSee,                                 /* control ID */
  334.     {TextRow8,CtrlCol4,0,0},                         /* control rect */
  335.     CheckControl{{                                   /* control type */
  336.         0,                                           /* flag */
  337.         fctlProcNotPtr+refIsResource,                /* more flags */
  338.         0,                                           /* ref con */
  339.         Everyone,                                    /* title ref */
  340.         1,                                           /* initial value */
  341.         0,                                           /* color table not used */
  342.         {"","",0,0}                                  /* key equiv */
  343.     }};
  344. }; 
  345.  
  346. resource rControlTemplate (CheckOwnerChanges)  {
  347.     CheckOwnerChanges,                               /* control ID */
  348.     {TextRow9,CtrlCol2,0,0},                         /* control rect */
  349.     CheckControl{{                                   /* control type */
  350.         0,                                           /* flag */
  351.         fctlProcNotPtr+refIsResource,                /* more flags */
  352.         0,                                           /* ref con */
  353.         Owner,                                       /* title ref */
  354.         1,                                           /* initial value */
  355.         0,                                           /* color table not used */
  356.         {"","",0,0}                                  /* key equiv */
  357.     }};
  358. }; 
  359.  
  360. resource rControlTemplate (CheckGroupChanges)  {
  361.     CheckGroupChanges,                               /* control ID */
  362.     {TextRow9,CtrlCol3,0,0},                         /* control rect */
  363.     CheckControl{{                                   /* control type */
  364.         0,                                           /* flag */
  365.         fctlProcNotPtr+refIsResource,                /* more flags */
  366.         0,                                           /* ref con */
  367.         Group,                                       /* title ref */
  368.         1,                                           /* initial value */
  369.         0,                                           /* color table not used */
  370.         {"","",0,0}                                  /* key equiv */
  371.     }};
  372. }; 
  373.  
  374. resource rControlTemplate (CheckAllChanges)  {
  375.     CheckAllChanges,                                 /* control ID */
  376.     {TextRow9,CtrlCol4,0,0},                         /* control rect */
  377.     CheckControl{{                                   /* control type */
  378.         0,                                           /* flag */
  379.         fctlProcNotPtr+refIsResource,                /* more flags */
  380.         0,                                           /* ref con */
  381.         Everyone,                                    /* title ref */
  382.         1,                                           /* initial value */
  383.         0,                                           /* color table not used */
  384.         {"","",0,0}                                  /* key equiv */
  385.     }};
  386. }; 
  387.  
  388.  
  389.  
  390. /* The definition of the buttons button */
  391. resource rControlTemplate (UndoBut)  {
  392.     UndoBut,                                                  /* control ID */
  393.     {TopOfButRow,ButLeftEdge1,BottomOfButRow,ButRightEdge1},  /* control rect*/
  394.     SimpleButtonControl{{                                     /* control type*/
  395.         0,                                                    /* flag */
  396.         0x1002,                                               /* more flags */
  397.         0,                                                    /* ref con */
  398.         UndoBut                                               /* title ref */
  399.     }};
  400. };
  401.  
  402. /* The definition of the buttons button */
  403. resource rControlTemplate (SaveBut)  {
  404.     SaveBut,                                                  /* control ID */
  405.     {TopOfButRow,ButLeftEdge2,BottomOfButRow,ButRightEdge2},  /* control rect*/
  406.     SimpleButtonControl{{                                     /* control type*/
  407.         0,                                                    /* flag */
  408.         0x1002,                                               /* more flags */
  409.         0,                                                    /* ref con */
  410.         SaveBut                                               /* title ref */
  411.     }};
  412. };
  413.  
  414. /* The definition of the buttons button */
  415. resource rControlTemplate (ViewAnotherBut)  {
  416.     ViewAnotherBut,                                           /* control ID */
  417.     {TopOfButRow,ButLeftEdge3,BottomOfButRow,ButRightEdge3},  /* control rect*/
  418.     SimpleButtonControl{{                                     /* control type*/
  419.         0,                                                    /* flag */
  420.         0x1002,                                               /* more flags */
  421.         0,                                                    /* ref con */
  422.         ViewAnotherBut                                        /* title ref */
  423.     }};
  424. };
  425.  
  426. resource rpString (UndoBut) {
  427.     "Undo"
  428. };
  429.  
  430. resource rpString (SaveBut) {
  431.     "Save"
  432. };
  433.  
  434. resource rpString (ViewAnotherBut) {
  435.     "View Another"
  436. };
  437.  
  438. /*********************************************************************/
  439. /*
  440. /*          Menus
  441. /*
  442. /*********************************************************************/
  443.  
  444. #define AppleMenuID     $1100
  445. #define FileMenuID      $1200
  446.  
  447. #Define AboutID         $1101
  448. #define QuitID          $1201
  449.  
  450.  
  451. resource rMenuBar (1) {
  452.     {
  453.         AppleMenuID,
  454.         FileMenuID,
  455.     };
  456. };
  457.  
  458. resource rMenu (AppleMenuID)    {
  459.     AppleMenuID,
  460.     0xA008,
  461.     AppleMenuID,
  462.     { AboutID };
  463. };
  464.  
  465. resource rMenu (FileMenuID) {
  466.     FileMenuID,
  467.     0xA008,
  468.     FileMenuID,
  469.     { QuitID };
  470. };
  471.  
  472.  
  473. resource rMenuItem (AboutID)    {
  474.     AboutID,
  475.     "","",
  476.     0,
  477.     0x8040,
  478.     AboutID
  479. };
  480.  
  481. resource rMenuItem (QuitID) {
  482.     QuitID,
  483.     "Q","q",
  484.     0,
  485.     0x8000,
  486.     QuitID
  487. };
  488.  
  489.  
  490. resource rPString (AppleMenuID) {
  491.     "@"
  492.     };
  493. resource rPString (FileMenuID) {
  494.     " File "
  495.     };
  496. resource rPString (AboutID) {
  497.     "About Access Privileges."
  498.     };
  499. resource rPString (QuitID) {
  500.     "Quit"
  501.     };
  502.  
  503. /* Template for static text in main window */
  504. resource rControlTemplate (StatTextTextID1)  {
  505.     StatTextTextID1,                                    /* control ID */
  506.     {4,0,40,190},                                       /* control rectangle */
  507.     StatTextControl{{                                   /* control type */
  508.         0xFF00,                                         /* flag */
  509.         fctlProcNotPtr+refIsResource,                   /* more flags */
  510.         0,                                              /* ref con */
  511.         StatTextTextID1                                 /* title ref */
  512.     }};
  513. }; 
  514.  
  515. /* The static text for list window */
  516. resource rTextForLETextBox2 (StatTextTextID1) {
  517.         TBRightJust
  518.         "Folder:"
  519.         TBEndOfLine
  520.         "On volume:"
  521.         TBEndOfLine
  522.         "Logged in as:"
  523.         TBEndOfLine
  524.         "Your privileges are:"
  525.         TBEndOfLine
  526. };
  527.  
  528. /* Template for static text in main window */
  529. resource rControlTemplate (StatTextTextID2)  {
  530.     StatTextTextID2,                                    /* control ID */
  531.     {82,0,138,190},                                     /* control rectangle */
  532.     StatTextControl{{                                   /* control type */
  533.         0xFF00,                                         /* flag */
  534.         fctlProcNotPtr+refIsResource,                   /* more flags */
  535.         0,                                              /* ref con */
  536.         StatTextTextID2                                 /* title ref */
  537.     }};
  538. }; 
  539.  
  540. /* The static text for list window */
  541. resource rTextForLETextBox2 (StatTextTextID2) {
  542.         TBRightJust
  543.         TBEndOfLine
  544.         "See Folders:"
  545.         TBEndOfLine
  546.         TBEndOfLine
  547.         "See Files:"
  548.         TBEndOfLine
  549.         TBEndOfLine
  550.         "Make Changes:"
  551.         TBEndOfLine
  552. };
  553.  
  554. /* Template for static text in main window */
  555. resource rControlTemplate (StatTextTextID3)  {
  556.     StatTextTextID3,                                    /* control ID */
  557.     {40,90,77,190},                                     /* control rectangle */
  558.     StatTextControl{{                                   /* control type */
  559.         0xFF00,                                         /* flag */
  560.         fctlProcNotPtr+refIsResource,                   /* more flags */
  561.         0,                                              /* ref con */
  562.         StatTextTextID3                                 /* title ref */
  563.     }};
  564. }; 
  565.  
  566. /* The static text for list window */
  567. resource rTextForLETextBox2 (StatTextTextID3) {
  568.         TBRightJust
  569.         TBEndOfLine
  570.         "Owner:"
  571.         TBEndOfLine
  572.         TBEndOfLine
  573.         "Group:"
  574. };
  575.  
  576. /* Template for static text in main window */
  577. resource rControlTemplate (StatTextTextID4)  {
  578.     StatTextTextID4,                                    /* control ID */
  579.     {4,198,40,544},                                     /* control rectangle */
  580.     StatTextControl{{                                   /* control type */
  581.         0xFF00+fSubstituteText,                         /* flag */
  582.         fctlProcNotPtr+refIsResource,                   /* more flags */
  583.         0,                                              /* ref con */
  584.         StatTextTextID4                                 /* title ref */
  585.     }};
  586. }; 
  587.  
  588. /* The static text for list window */
  589. resource rTextForLETextBox2 (StatTextTextID4) {
  590.         TBLeftJust
  591.         "*0"
  592.         TBEndOfLine
  593.         "*1"
  594.         TBEndOfLine
  595.         "*2"
  596.         TBEndOfLine
  597.         "*3"
  598.         TBEndOfLine
  599. };
  600.  
  601. /* Template for static text in main window */
  602. resource rControlTemplate (StatTextTextID5)  {
  603.     StatTextTextID5,                                        /* control ID */
  604.     {TextRow5,CtrlCol2,TextRow5+RowSep,CtrlCol2+LEWidth},   /* control rect */
  605.     StatTextControl{{                                       /* control type */
  606.         0xFF00+fSubstituteText,                             /* flag */
  607.         fctlProcNotPtr+refIsResource,                       /* more flags */
  608.         0,                                                  /* ref con */
  609.         StatTextTextID5                                     /* title ref */
  610.     }};
  611. }; 
  612.  
  613. /* The static text for list window */
  614. resource rTextForLETextBox2 (StatTextTextID5) {
  615.         TBLeftJust
  616.         "*4"
  617. };
  618.  
  619. /* Template for static text in main window */
  620. resource rControlTemplate (StatTextTextID6)  {
  621.     StatTextTextID6,                                        /* control ID */
  622.     {TextRow6,CtrlCol2,TextRow6+RowSep,CtrlCol2+LEWidth},   /* control rect */
  623.     StatTextControl{{                                       /* control type */
  624.         0xFF00+fSubstituteText,                             /* flag */
  625.         fctlProcNotPtr+refIsResource,                       /* more flags */
  626.         0,                                                  /* ref con */
  627.         StatTextTextID6                                     /* title ref */
  628.     }};
  629. }; 
  630.  
  631. /* The static text for list window */
  632. resource rTextForLETextBox2 (StatTextTextID6) {
  633.         TBLeftJust
  634.         "*5"
  635. };
  636.